# -------------------------------------------------------------------- # # GUIDED TOUR # # -------------------------------------------------------------------- # -------------------------------------------------------------------- # Set window title # -------------------------------------------------------------------- title "Guided Tour"; # -------------------------------------------------------------------- # Set escape key as way to get out # -------------------------------------------------------------------- key escape exit; # -------------------------------------------------------------------- # Set palette and display background bitmap # -------------------------------------------------------------------- palette palette.bmp; # set palette setBackColor 0; # set background color # -------------------------------------------------------------------- # Put up tableau and exit button # -------------------------------------------------------------------- background gdtour1.bmp centerOut; # Tableau & button button 101 exit.bmp 459 446 exit; # exit button wait 750; # -------------------------------------------------------------------- # "Welcome..." # -------------------------------------------------------------------- [ Beginning ] wait 100; wave welcom1.wav; wait wave done; # -------------------------------------------------------------------- # "This short tour will..." # -------------------------------------------------------------------- wait 500; wave welcom2.wav; wait wave done; # -------------------------------------------------------------------- # "The opening screen..." # -------------------------------------------------------------------- wait 500; wave tab.wav; wait wave done; wait 500; background gdtour1a.bmp; # dim tableau # -------------------------------------------------------------------- # "This is the Search and Table..." # -------------------------------------------------------------------- wait 500; bitmap search.bmp 96 245 centerOut; # search viewer wave searchvi.wav; wait wave done; wait 100; bitmap searcha.bmp 96 245; # dim search viewer # -------------------------------------------------------------------- # "The Text window..." # -------------------------------------------------------------------- wait 500; bitmap text.bmp 368 34 centerOut; # text viewer wave textview.wav; wait wave done; # -------------------------------------------------------------------- # "Click on the previous and next..." # -------------------------------------------------------------------- wait 500; wave prevnex.wav; wait wave done; wait 100; bitmap texta.bmp 368 34; # dim text viewer # -------------------------------------------------------------------- # "The Media window..." # -------------------------------------------------------------------- wait 500; bitmap medview.bmp 96 33 centerOut; # media viewer wave medview.wav; wait wave done; wait 100; bitmap medviewa.bmp 96 33; # dim media viewer # -------------------------------------------------------------------- # "These are the Path Bar buttons." # -------------------------------------------------------------------- load bitmap path.bmp; # path bar wait 500; bitmap path.bmp 0 20 centerOut; # path bar wave path.wav; wait wave done; wait 500; bitmap patha.bmp 0 20; # dim path bar wait wave done; # -------------------------------------------------------------------- # "Use Search to see..." # -------------------------------------------------------------------- wait 500; bitmap searbut.bmp 1 52; # search button wave search1.wav; wait wave done; # -------------------------------------------------------------------- # "Choose "Look in" for the types..." # -------------------------------------------------------------------- wait 500; wave search2.wav; wait wave done; # -------------------------------------------------------------------- # "Click on the Encyclopedia button..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap encycl.bmp 1 96; # encyclopedia button wave encycl.wav; wait wave done; # -------------------------------------------------------------------- # "Click on the button entitled Drug..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap drugg.bmp 0 150; # drug guide button wave drug.wav; wait wave done; # -------------------------------------------------------------------- # "Click on the Handbook of Diseases..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap handb.bmp 0 200; # handbook button wave handb.wav; wait wave done; # -------------------------------------------------------------------- # "Explore a list of pictures, videos..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap multi.bmp 0 258; # multimedia button wave multi.wav; wait wave done; # -------------------------------------------------------------------- # "Click on the Body Atlas..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap bodatlas.bmp 0 310; # atlas button wave atlas.wav; wait wave done; # -------------------------------------------------------------------- # "Explore a list of medical..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap reslst.bmp 0 362; # resource button wave resourc.wav; wait wave done; # -------------------------------------------------------------------- # "Online connects you..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim pathbar bitmap online.bmp 0 424; # online button wave online.wav; wait wave done; load bitmap menu.bmp; #menubar # -------------------------------------------------------------------- # "Additional options..." # -------------------------------------------------------------------- wait 500; bitmap patha.bmp 0 20; # dim path bar bitmap menubut.bmp 0 21; # menu button bitmap menu.bmp 0 0; # menu wave menu.wav; wait wave done; wait 500; background gdtour1a.bmp; # menu tableau unload bitmap patha.bmp; # dim path bar # -------------------------------------------------------------------- # "Use the Back, Help and Exit buttons..." # -------------------------------------------------------------------- wait 500; bitmap status.bmp 165 442; # status bar wave status.wav; wait wave done; # -------------------------------------------------------------------- # "Now you are ready to explore..." # -------------------------------------------------------------------- wait 500; background gdtour1 centerOut; # tableau wave end.wav; wait wave done; wait 500; # -------------------------------------------------------------------- # Exit button lit # -------------------------------------------------------------------- button 101 exit.bmp 460 446 exit; # exit button #wait 750; # -------------------------------------------------------------------- # DONE ! # -------------------------------------------------------------------- [Exit] Exit;